<%
Dim str1 : str1 = "1ue_separate_ue2"
Dim str2 : str2 = "12"
Dim arr1,arr2
arr1 = Split(str1,"ue_separate_ue")
arr2 = Split(str2,"ue_separate_ue")
For Each a1 In arr1
	Response.Write(a1 & "\n</br>")
Next
For Each a2 In arr2
	Response.Write(a2 & "\n</br>")
Next
%>